home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok77.lha / REXX / VersionModul / WriteVersionModule.oed < prev    next >
Text File  |  1993-08-15  |  2KB  |  75 lines
  1. /*------------------------------------------
  2.  
  3.   :Program.     WriteVersionModule.oed
  4.   :Author.      Albert Weinert [awn]
  5.   :Address.     Feldblumenweg 2, D-5000 Köln 71
  6.   :Version.     V1.0
  7.   :Date.        14-Jul-1992
  8.   :Copyright.   Albert Weinert 1992
  9.   :Language.    Rexx
  10.   :Translator.  ARexx 1.15
  11.   :Contents.    Erstellt ein Modul worin die Versionnummern eines Programm verwaltet
  12.   :Contents.    werden.
  13.   :Imports.
  14.   :History.     V0.0   [awn] 14-Jul-1992 : Begonnen
  15.   :History.     V1.0   [awn] 14-Jul-1992 : Funktioniert
  16.  
  17. --------------------------------------------*/
  18. address 'OEd'
  19.  
  20. top;bbegin;bottom;bend;bdelete
  21. 'inserton'
  22. 'top';'first';'split';'up'
  23. 'write "(*------------------------------------------"'
  24. 'return';'first'
  25. 'write "  :Program."'
  26. 'return';'first'
  27. 'write "  :Version.     none"'
  28. 'return';'first'
  29. 'write "  :CharRev.     v!"'
  30. 'return';'first'
  31. 'write "  :InternalVer. none"'
  32. 'return';'first'
  33. 'write "  :Date.        "'
  34. 'write' space(date(),1,"-")
  35. 'return';'first'
  36. 'write "  :Language.    Oberon"'
  37. 'return';'first'
  38. 'write "  :Translator.  Amiga Oberon 2.14d"'
  39. 'write ""'
  40. 'return';'first'
  41. 'write "--------------------------------------------*)"'
  42. 'return';'first'
  43. 'write "(* $Implementation- *)"'
  44. 'return';'first'
  45. 'write "MODULE none;"';
  46. 'return';'first'
  47. 'write "CONST outVer   *="'
  48. 'return';'first'
  49. 'write "      outRev   *="'
  50. 'return';'first'
  51. 'write "      intVer   *="'
  52. 'return';'first'
  53. 'write "      intRev   *="'
  54. 'return';'first'
  55. 'write "      charRev   *="'
  56. 'return';'first'
  57. 'write "      date     *="'
  58. 'return';'first'
  59. 'write "      name     *="'
  60. 'return';'first'
  61. 'write "      nameVer  *="'
  62. 'return';'first'
  63. 'write "      nameFull *="'
  64. 'return';'first'
  65. 'write "      ver      *="'
  66. 'return';'first'
  67.  
  68. 'write "END none."';first
  69. DO I= 1 TO 20
  70.  'up'
  71. END
  72. DO I=1 TO 16
  73.  'right'
  74. END
  75.